home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
The CD-ROM Directory (13th Edition)
/
The CD-ROM Directory 13.iso
/
install
/
inscript.spa
< prev
next >
Wrap
Text File
|
1993-11-19
|
17KB
|
710 lines
; CD Answer Installation Script - Generic jdk
; <<CDA>> Aug 18 1992;3.1
; single/multiple disk version
;
; To customize this install script:
; 1. Put the product name (1-8 characters) in a file called
; 'PRODNAME'. There should be no carriage return/line feed at
; the end of the name- the file should contain just the characters
; of the name.
; 2. Put the application name (CD Author 4 character project identifier)
; in a file called 'APPLNAME'. Again, no other chars should be
; the file. Multiple applications are formed by adding a space,
; then another application identifier
; 3. Put the start-up message in a file called PRODSCRN.<language>
; There should not be more than 10 lines.
;
; The first disk must contain the \INSTALL directory.
; This contains the general system files for the install
; process and may be repeated on disk #2, etc.
; The application specific files are kept in a directory
; named 'DISK1'. If additional disks are required, create
; an (empty) file on the current disk named '\MORE' and
; put the overflow files in a directory named \DISK2 (3, 4, ...).
BREAK abort
; install disk
PARSE_PATH <$ProgDir>
SET insdrive = <$Drive>
SET ins = <insdrive>\INSTALL
SET curdisk = 1
GOSUB need_disk
; here are some defaults:
;TFPL 8-6-93
;CONFIG Colors = 0 2 0 30 0 30 0 30 0 112 0 143 0 79 0 79 0 48 0 15 0 30 0 79 0 143 1 30
;CONFIG ColorSet = 55
;TFPL
; default destination drive
PARSE_PATH <$CurDir>
SET def_dest = C:\
IF NOT "<$Drive>"=="<insdrive>" DO SET def_def = <$Drive>
; default CD-ROM interface (FS_HSGEN {High Sierra} or FS_ISGEN {ISO})
SET def_cdtype = High Sierra
SET def_driver = FS_HSGEN
IF EXISTS <insdrive>\INSTALL\<def_driver>.* GOTO ok_driver
SET def_cdtype = ISO
SET def_driver = FS_ISGEN
:ok_driver
; language
SET def_lang = <$Language>
; application name(s) (4 char ident(s) on CD-ROM)
READFILE names = <ins>\APPLNAME.
; product name (application name for batch file, subdirectory name)
READFILE prod = <ins>\PRODNAME.
; default dest drive and directory
PARSE_PATH <def_dest><prod>.CD
SET dstdrive = <$Drive>
SET path = <$Dir>
CD <dstdrive>\
; read and display Application Installation Screen
IF NOT EXISTS <insdrive>\DISK1\PRODSCRN.<def_lang> GOTO no_banner
READFILE screen = <insdrive>\DISK1\PRODSCRN.<def_lang>
GOTO show_banner
:no_banner
SET screen =
---- Instalación de CD Answer para:\n\n
---- <prod>\n\n
---- Aplicación(es): <names>
:show_banner
CLEAR
TEXT <screen>
SET screen =
WAIT
GOTO okdir
:getdir
CLEAR
TEXT \nError -\n\n
---- El path "<dstdrive><path>" no es legal!\n
----Para instalar el programma, debe existir tanto una disquetera como un
---- subdirectorio válido.
WAIT
:okdir
CLEAR
TEXT La software de recuperación de datos debe ser instalada en su disco
---- duro o en un disco flexible formateado. Los valores standard son\n
----disquetera <dstdrive> (normalmente el disco duro), y un subdirectorio\n
----llamado <path>. Para usar estos valores, presione dos veces la\n
----tecla ┘ (Intro). Para cambiarlos, escriba el nombre de la disquetera\n
----o del subdirectorio después del aviso correspondiente. Entonces\n
----presione ┘ (Intro).
INPUT 6,8,5 dstdrive = Instalar en la disquetera ?
INPUT 6,10,40 path = Instalar en el directorio ?
SET dest = <dstdrive><path>
SET confile = <ins>\_DW_.CFG
IF "<dstdrive>"=="" GOTO getdir
IF "<path>"=="\" GOTO getdir
IF "<path>"=="" GOTO getdir
IF NOT DIREXISTS <dstdrive>\ GOTO getdir
CD <dstdrive>\
IF NOT DIREXISTS <dest> GOTO nopath
IF NOT EXISTS <dest>\DW.EXE GOTO nopath
CLEAR
TEXT El directorio "<dest>" ya existe.
NEWMENU 1, 0, 68
;TFPL -8-6-93
MENU Instalar el software y sólo el interfaz español
MENU Instalar el software y los interfaces de todos los idiomas
;TFPL
MENU Borrar la versión antigua; no instalar la software nueva
MENU Cambiar la configuración; no copiar software
MENU Interrumpir la instalación sin hacer ningún cambio
ENDCHOICES
;TFPL -8-6-93
CHOICE 1
CLEAR
TEXT Effacement du contenu antérieur de <dest>...
FOREACH name = <names>
DEL <dest>\<name>*.*
NEXT
DEL <dest>\FS_*.DRV
DEL <dest>\SC_*.DRV
DEL <dest>\PR_*.DRV
DEL <dest>\GR_*.DRV
DEL <dest>\_DW_*.*
DEL <dest>\ADL_MSGS.*
DEL <dest>\DW.EXE
DEL <dest>\UPDATE.EXE
SET ch = 2
GOTO okpath
;TFPL
CHOICE 2
CLEAR
TEXT Borrando el contenido anterior de <dest>...
FOREACH name = <names>
DEL <dest>\<name>*.*
NEXT
DEL <dest>\FS_*.DRV
DEL <dest>\SC_*.DRV
DEL <dest>\PR_*.DRV
DEL <dest>\GR_*.DRV
DEL <dest>\_DW_*.*
DEL <dest>\DW.EXE
DEL <dest>\ADL_MSGS.*
DEL <dest>\UPDATE.EXE
SET ch = 3
GOTO okpath
CHOICE 3
CLEAR
TEXT Cancelando <dest> directorio...
FOREACH name = <names>
DEL <dest>\<name>*.*
NEXT
DEL <dest>\FS_*.DRV
DEL <dest>\SC_*.DRV
DEL <dest>\PR_*.DRV
DEL <dest>\GR_*.DRV
DEL <dest>\_DW_*.*
DEL <dest>\ADL_MSGS.*
DEL <dest>\DW.EXE
DEL <dest>\UPDATE.EXE
IF NOT EXISTS <dest>\*.* GOTO remdest
TEXT <dest> directorio contiene archivos desconocidos; directorio no ha sido cancelado!!
WAIT
GOTO norem
:remdest
RD <dest>
:norem
DEL <dstdrive>\<prod>.BAT
GOTO end2
CHOICE 4
SET alter = Y
SET confile = <dest>\_DW_.CFG
GOTO okpath
CHOICE 5
GOTO end2
ENDCHOICES
:nopath
MD <dest>
IF NOT DIREXISTS <dest> GOTO getdir
;TFPL -8-6-93
TEXT New Installation
NEWMENU 1, 3, 64
MENU Instalar el software y sólo el interfaz español
MENU Instalar el software y los interfaces de todos los idiomas
ENDCHOICES
CHOICE1
SET ch = 2
GOTO okpath
CHOICE2
SET ch = 3
GOTO okpath
ENDCHOICES
:okpath
;----------------------------------------------------------------------------
IF NOT EXISTS <confile> GOTO no_config
DISP 5,14 Leyendo la configuración...
READCONFIG <confile>
:no_config
;----------------------------------------------------------------------------
HSCOUNT hs
IF NOT <hs>==0 GOTO have_hs
CLEAR
TEXT Problema - No hay ningúna disquetera CD-ROM instalada.\n\n
----Se ruega usar el disco de instalación proporcionado por el fabricante de
---- su disquetera CD-ROM para instalar la software del device driver. Luego
---- repita este programa de instalación.\n\n
----Note: El programa de instalación de la disquetera CD-ROM copiará algunos
---- archivos a su disco de sistema y modificará los archivos CONFIG.SYS y
---- AUTOEXEC.BAT\n
----Si Ud. no tiene otros programas que usan el programa MSCDEX, se recomienda
---- eliminar la línea que llama a este programa de su archivo AUTOEXEC.BAT
---- porque esta software no lo requiere.\n\n
----Después de instalar los drivers CD-ROM se deberá reinicializar el sistema.
WAIT
ABORT
:have_hs
;TFPL 19-11-93
GOTO get_hs_letter
SET msg =
IF <hs>==1 GOTO instOne
TEXT Una selección de <def_cdtype> drivers CD-ROM drivers están disponibles:\n\n
----Seleccione el device driver CD-ROM <def_cdtype> de esta lista de device
---- drivers disponibles usando las teclas y . Luego\n
----presione ┘ (Intro). Presione Esc para interrumpir la installación.
GOTO instMore
:instOne
SET msg = Un driver CD-ROM <def_cdtype> ha sido instalado (vea CONFIG.SYS):\n\n
:instMore
HSDRIVER hsname = 25, 8
CONFIG Driver = "<def_driver>=<hsname>"
CLEAR
TEXT <msg>El driver CD-ROM <def_cdtype> seleccionado tiene el nombre "<hsname>".
---- Si esto no es correcto, presione Esc para interrumpir la instalación y
---- revise su archivo CONFIG.SYS\n\n
----Esta software NO requiere el programa MSCDEX.EXE (Microsoft CD-ROM
---- Extensions). Si ningún otro programa lo requiere entonces Ud. puede
---- eliminar este programa de su archivo \AUTOEXEC.BAT (donde puede haber
---- sido instalado por el programa de instalación).
WAIT
CLEAR
TEXT Copiando Interface CD-ROM <def_cdtype>...
SET driver_name = <def_driver>.DRV
GOSUB copy_driver
;TFPL 19-11-93
:get_hs_letter
CLEAR
:tfpl_drive
GOTO tfp1
:drive_error
TEXT Error: The database is not available on the specified drive...\n\n
:tfp1
TEXT \n\n
----Introd